pdf("Concordance.pdf")
> affy<-paste("AFFY CONCORCANCE BEFORE AND AFTER IMPUTATION;Num of snps",nrow(data),sep=';')
> ill<-paste("ILL CONCORCANCE BEFORE AND AFTER IMPUTATION;Num of snps",nrow(data1),sep=';')
> affy<-paste("AFFY CONCORCANCE;Num of snps",nrow(data),sep=';')
> ill<-paste("ILL CONCORCANCE;Num of snps",nrow(data1),sep=';')
> hist(data[,2],breaks=seq(0,200,1),xlim=c(0,200),ylim=c(0,500),xlab="CONCORDANCE COUNTS",ylab ="counts",main=affy)
> hist(data1[,2],breaks=seq(0,200,1),xlim=c(0,200),ylim=c(0,500),xlab="CONCORDANCE COUNTS",ylab ="counts",main=ill)
> dev.off()

